<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="aFunction_charCode.asp" -->
<!-- #include file="ad_comSub.asp" -->

<%
Call tslt_useridentity12_error_end()
%>

<html>
<head>
<TITLE></TITLE>
<link href=../style/<%=session("tslt_stylefolder")%>/admin.css rel="stylesheet" type="text/css">
<SCRIPT language="JavaScript">
<!--
             function showsubmenu(sid)
             {
                   whichEl = eval("submenu" + sid);
                   if (whichEl.style.display == "none")
                  {
                  eval("submenu" + sid + ".style.display=\"\";");
                  }
                  else
                  {
                      eval("submenu" + sid + ".style.display=\"none\";");
                  }
             }

             var direction = "MyRight"; 
             function PulseLR(num,left)
             {
                  PT = eval("PulseText" + num);
	PT.style.left = left;
	if(left>document.body.offsetWidth-810) direction = "MyLeft";
	if(left<20) direction = "MyRight";
	if(direction =="MyRight") 
                         step = 20;
	else
	        step = -20;
	setTimeout('PulseLR('+num+','+(left+step)+')', 500);
             }
//-->
</SCRIPT>

</head>
<body bgcolor=#aaaac4>

<div id="submenu1" align="center" valign="bottom" style="display:none;position: absolute; top:220; width:330; height:70; left:240;background-color:#000070" width="200" height="100">    
<table id="PulseText1" border="0" style="position: absolute; top:15; width:270; height:40; left:30;" bgcolor="#000070">
      <tr>
             <td align="center">
                       <SCRIPT language=Javascript>passwords(promptInfo_RevertDUF(0))</SCRIPT>
             </td>
      </tr>
</table>
</div>

<CENTER>
<br>
<table><tr><td class="font2">ԭݿϴļ</td></tr></table>
</CENTER>
<br>

<%
dim sure
sure = Request("MyRevertDUF")
if sure = "ok" then
       call MyRevertDUF()
end if
%>

<table bgcolor=#ffffff align="center" width="85%" border="0" cellpadding="0" cellspacing="0" style="BORDER-LEFT:#0098c8 1PX SOLID;BORDER-RIGHT:#0098c8 1PX SOLID;BORDER-TOP:#0098c8 1PX SOLID;BORDER-BOTTOM:#0098c8 1PX SOLID">
         <form method="post" action="RevertDUF.asp" name=form1>
                 <input type="hidden" name="MyRevertDUF" value="ok">
                 <tr height="22" align="center" bgcolor=#4a75ad>
                          <td><b>ԭݿϴļ</b>
                 </tr>
                 <tr align="center" bgcolor=#dedfde>
                          <td><br>
                 </tr>
                 <tr align="center" bgcolor=#dedfde>
                          <td height="40">
                                   <table align="center" width="80%">
                                              <tr>
                                                      <td>
                                                             棡ִС <font color=red>ԭݿϴļ</font> ɾϵͳ
ȫ¼ҪɾݿϴļԭϴݵݿϴļĻֻܿ
ԭǰˡز
<br>ȹر̳(̳ҳ)Ȼٻԭ
<br>ļԭܷʱĵȴ
                                                      </td>
                                              </tr>
                                   </table>
                          </td>
                 </tr>
                 <tr align="center" bgcolor=#dedfde>
                          <td height="40">
                                   <br>
                                   <table border="0" width="80%" bgcolor=#ffffff>
                                              <tr>
                                                      <td width="70%"><span style="font-size:16">ϴִбݵʱǣ</span></td>                                                              
                                                      <td><span style="font-size:16"><%=ShowCopyTime()%></td>
                                              </tr>
                                              <tr>
                                                      <td width="70%"><span style="font-size:16">ϴݵݿļСlyDBСǣ</span></td>                                                              
                                                      <td><span style="font-size:16"><%showSpaceinfo("../MyCopyFolder/lyDB")%></td>
                                              </tr>
                                              <tr>
                                                      <td><span style="font-size:16">ϴݵϴļСUploadFileСǣ</span></td>                                                              
                                                      <td><span style="font-size:16"><%showSpaceinfo("../MyCopyFolder/UploadFile")%></span></td>                                                    
                                              </tr>
                                   </table>
                                   <br>
                          </td>
                 </tr>
                 <tr align="center" bgcolor=#dedfde>
                          <td height="40">
                                  <input name="button1" type="button" value=" ԭݿϴļ " onclick="var MyReturn=confirm('ٴξ棺ȷҪִбβ');if(MyReturn!=false){showsubmenu(1);PulseLR(1,30);form1.submit();}"></td>
                          </td>
                 </tr>
                 <tr height="22" bgcolor=#4a75ad>
                          <td>
                                  <br>
                          </td>
                 </tr>
         </form>
</table>
<br>
</BODY>
</HTML>

<%
Call conn_Nothing()

function ShowCopyTime()
        dim rs,Sql                  
        Sql = "select CopyTime from option1"
        set rs=conn.execute(Sql)
              ShowCopyTime=rs("CopyTime")
        rs.close
        set rs=nothing
end function
 
Sub ShowSpaceInfo(drvpath)
        dim fso,d,size,showsize
        set fso=server.createobject("scripting.filesystemobject") 		
        drvpath=server.mappath(drvpath) 	
        If fso.FolderExists(drvpath)=true Then		
	set d=fso.getfolder(drvpath) 		
	size=d.size
	showsize=size & "&nbsp;Byte" 
	if size>1024 then
	      size=(size\1024)
	      showsize=size & "&nbsp;KB"
	end if
	if size>1024 then
	      size=(size/1024)
	      showsize=formatnumber(size,2) & "&nbsp;MB"		
	end if
	if size>1024 then
	      size=(size/1024)
	      showsize=formatnumber(size,2) & "&nbsp;GB"	   
	end if   
	response.write "<font face=verdana>" & showsize & "</font>"
        end if
        set fso=nothing
End Sub	

sub MyRevertDUF()
        dim fso
        set fso=server.createobject("scripting.filesystemobject")
        dim MyCopyFolderPath
        MyCopyFolderPath=server.mappath("..\")
        MyCopyFolderPath=MyCopyFolderPath& "\MyCopyFolder"
        If fso.FolderExists(MyCopyFolderPath & "\lyDB")=false Then
                 set fso=nothing
                 Response.write"<SCRIPT language=Javascript>passwords(promptInfo_RevertDUF(1))</SCRIPT>"
                 Exit sub
        end if
        If fso.FolderExists(MyCopyFolderPath & "\UploadFile")=false Then
                 set fso=nothing
                 Response.write"<SCRIPT language=Javascript>passwords(promptInfo_RevertDUF(2))</SCRIPT>"
                 Exit sub
        end if
        dim lyDBpath
        lyDBpath=server.mappath("..\lyDB")
        fso.Copyfolder MyCopyFolderPath & "\lyDB", lyDBpath
        dim eUpath
        eUpath=server.mappath("..\eWebEditor\UploadFile")
        If fso.FolderExists(eUpath)=true Then
               fso.DeleteFolder eUpath,true
        end if
        fso.Copyfolder MyCopyFolderPath & "\UploadFile", eUpath
        Response.write"<SCRIPT language=Javascript>passwords(promptInfo_RevertDUF(3))</SCRIPT>"
        set fso=nothing
end sub

%>